home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 1 #9
/
utv1n9s2.d64
/
fn boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
531b
|
24 lines
10 rem function key loader
20 rem by john m. campbell
22 if aa=1 then 120
25 print "load function keys"
30 open 15,8,15,"i"
40 open 2,8,2,"fn keys,p,r"
50 input#15,en,em$,et,es
60 if en=0 then 70
65 print "cannot locate function key definitions"
67 close3:close15:end
70 get#2,a0$,a1$
80 a0=asc(a0$+chr$(0))
90 a1=asc(a1$+chr$(0))
95 ad=a0+256*a1
100 close2:close15
103 a0=peek(655):a1=peek(656)
105 if ad+27<>a0+256*a1 then 110
106 print "function keys already defined"
107 print "type stop+restore keys then re-run"
108 end
110 aa=1:load"fn keys",8,1
120 sys ad:print "activating function keys"
130 new